unit UntBrandInfo;

interface

uses
  Classes;

type
  TBrandInfo = class(TObject)
  private
    Factive: Boolean;
    Fbrand: string;
    Fcode: string;
    Fid: Integer;
    procedure Setactive(const Value: Boolean);
    procedure Setbrand(const Value: string);
    procedure Setcode(const Value: string);
    procedure Setid(const Value: Integer);
  public
    property active: Boolean read Factive write Setactive;
    property brand: string read Fbrand write Setbrand;
    property code: string read Fcode write Setcode;
    property id: Integer read Fid write Setid;
  end;

implementation

uses
  UntDMDB;

procedure TBrandInfo.Setactive(const Value: Boolean);
begin
  Factive := Value;
end;

procedure TBrandInfo.Setbrand(const Value: string);
begin
  Fbrand := Value;
end;

procedure TBrandInfo.Setcode(const Value: string);
begin
  Fcode := Value;
end;

procedure TBrandInfo.Setid(const Value: Integer);
begin
  Fid := Value;
end;

end.
